unit fSelectUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, cxGraphics,    
           
         
       
       
         
    cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, StdCtrls, cxButtons;

type
  TfmSelectUser = class(TForm)
    btnCancel: TcxButton;
    btnOk: TcxButton;
    cbxUser: TcxComboBox;
    lblUser: TcxLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSelectUser: TfmSelectUser;

implementation

uses
  tools;

{$R *.dfm}

procedure TfmSelectUser.btnOkClick(Sender: TObject);
begin
  if cbxUser.Text = '' then
  begin
    InfoDlg(Self.Caption +'!');
    Abort;
  end;
  ModalResult := mrOk;
end;

procedure TfmSelectUser.FormCreate(Sender: TObject);
begin
  SetComboxPopup('select bu_name from b_user', cbxUser);
end;

end.
